home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
AUTOINSE.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
24 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 16:31:38 1992
;;; from file /u/jwz/emacs19/lisp/packages/autoinsert.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex") ("\\.c$" . "c-insert.c") ("\\.h$" . "h-insert.c") ("[Mm]akefile" . "makefile.inc") ("\\.bib$" . "tex-insert.tex")) "\
Alist specifying text to insert by default into a new file.
Elements look like (REGEXP . FILENAME); if the new file's name
matches REGEXP, then the file FILENAME is inserted into the buffer.
Only the first matching element is effective.")
(defvar auto-insert-directory "~/insert/" "\
*Directory from which auto-inserted files are taken.")
(fset 'insert-auto-insert-files #[nil "┴\n!├¼£½ÿ╟@@\"½ê@Aë¬iA¬a¡áP ╩ !½è╦ !ê╠├!¬ë═╬ \"ê╧╨!)+ç" [auto-insert-alist file-name-sans-versions buffer-file-name nil insert-file name alist string-match auto-insert-directory file file-readable-p insert-file-contents set-buffer-modified-p message "Auto-insert: file %s not found" sleep-for 1] 4 "\
Insert default contents into a new file.
Matches the visited file name against the elements of `auto-insert-alist'."])
(byte-code "└ B└ç" [insert-auto-insert-files find-file-not-found-hooks] 2)